Tiger Disk 12/Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_A.d64/zeilen loeschen

Commodore BASIC | 2023-02-26 | 1KB | 23 lines

1 print"[147]nach tastendruck wird ein msp-programm  erzeugt, mit dem du zeilen"
10 print"eines basic-programms loeschen kannst."
11 print"dafuer laedst du dein programm und gibst sys49152,<erste zeile>,<le";
12 print"tzte zeile> ":print"ein."
15 print" von carsten hansen, dk-6100 haderslev":poke198,0:wait198,1:poke198,0
20 v=49152:bi=49295:an=16:ez=100:ab=10
30 m=255:fora=vtobi:b=b+1:readd:ch=(ch+b*d)andm:pokea,d:ifan>bthennext
40 ch=(2*ch)andm:z=peek(63)+256*peek(64):dz=ez+c*ab:readck
50 print"[147]list"z-ab"-"z:poke631,19:poke632,13:poke198,2
60 ifc=0thenn=(bi-v)/an:ifv+int(n+1)*an-1<>bithenpoke214,10:list20
70 ifck<>chthenprint"datenfehler":poke214,10:list20
80 ifz<>dzthenprint"zeile"dz"fehlt!":poke214,10:list20
90 c=c+1:b=0:ch=0:poke198,0:next:print"ok
100 [131] 032,253,174,032,138,173,032,247,183,032,019,166,165,095,133,253,228
110 [131] 165,096,133,254,032,253,174,032,138,173,032,247,183,133,021,200,048
120 [131] 208,002,230,021,132,020,032,019,166,165,095,133,251,165,096,133,088
130 [131] 252,056,165,045,229,251,141,167,002,165,046,229,252,141,168,002,098
140 [131] 160,000,177,251,145,253,056,173,167,002,233,001,141,167,002,173,026
150 [131] 168,002,233,000,141,168,002,230,251,208,002,230,252,230,253,208,180
160 [131] 002,230,254,173,167,002,201,000,208,216,173,168,002,201,000,208,226
170 [131] 209,165,253,133,045,165,254,133,046,032,051,165,032,096,166,032,200
180 [131] 156,166,096,000,000,000,000,000,000,000,000,000,000,000,000,000,016